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ce? INTEGER LINE ¢ 80) Ke RE eM 
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37 10 IF CPL = P2) 20s 20s 30 O03 00019 
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E-VTAMN NODA ‘PROGRAM PAGE 9 LISTING 
000435 C OUT 
000436 C VTSDFL 
000437 C VTISBFT 
Oo004d40 C BLANK 
o00606 C PGCNT 
0000S CL BUF 
jcoog2e2¢4 C SECTOR 
Oo0on4dde C LSD 
gooodd?, C TUIDN 
ogn0453 C TIB 
ponds? C TED 
oHa060o7? C BDFLFCB 
qogdoé6ed C TFTFCB 
q004¢64 C LINE 
0006352 R START 
000655 R Size 
Coo0007? R STRING 
000075 R POOL 
oon0n000 C ITEST 
000243 C INCHAR i 
oo004d34 C IN 
0004d4i C€ LSDN 
000604 C LACNT 
no90605 C LAMA 
Oogdg6e4i C IVALUE 
ob0064e C LFILE 
qg0o643 C¢ N&XTSCT 
gGa0644 C IDTScT 
000645 tC IDTDSP 
codgS4¢1i E BACKUP 
Qcoo0e6d? RFR OO0000 
nodoo0640 F os 
gqo00650 FR ON000f 
000651 R $i 
gq00653 R 0000/4 
00654 R $1 0 
don6ger R 100 
QO0068%?" R I 
900660 R A 
000605 E GETCHR 
000661 R OO0037? 
000645 R 200 
O00630 E $DO 
0006326 E ADVANC 
GQ ERRORS COMPILATION COMPLETE 
1 G THIS IS R COPYRIGHTED PROGRAMs COPYRIGHT 1373 BY VARIAN DATA MACHINES 
2 Cc 
3 Cc Ye Bae Me PART NO. 92L1105-0258 
4 C 
ba C RELEASED 3-71-74 
6 C 
ra C 
Ss C DIAG 
+ G 
10 C 
ii TITLE DIAG 
12 SUBROUTINE DIAG 
is Cc 
i4 C COMMON 
15 G 
16 CG 
| eg C KEMAEERAKRARAMRTEAKRE AS ARRSKRRKRKRKEESRKERKKRERECMRRARKARARKRRARSERARARARERKREREZEE EE 
is Cc ® DECLARE COMMON CELLS ¥ 
13 C VRERP HE RERERSCSEESERSESCRRSERSEFCRRHKSEEREEKCRECEPRRREAEZCERPRREEZCEEZPERFERTEHRETECER MEE 
20 COMMON ITEST » Pt i Pe > BUF +» INCHARs SECTOR» IN 
21 COMMON OUT  .« VTSDFL: WTSDFT» BLANK » LSBN » LSB +» TUIDN 
cc COMMOM TIB s TCD » LINE » LNENT » LNMAAX s PGCNT 
e3 COMMON oe DFTFCBs F¥VALUEs LFILE s NXTSCTs IDTFSCTs IDTDSP 
c4 INTEGER Fi Fe » OUT s NVTSDFLs ¥YTSDFTs BLANK s PGCNT 
rat INTEGER EUF S1AO)s SEC FORCLEOFs LSD q wer FUIDN ¢ 4) 
<b INTEGER TIB ¢ 4>, TCD ¢ Ss DFLFCBC 1335 DFTFCBC 13) 
ee INTEGER LINE ¢ 80) 
ce VBPERP ERE RERRRSERECSEREREKRSZPERESCERRSRESERESCECERSSPEKR ARSE RRERSEBPSEERERCKCERKCEC EVE ER 
cS cM END OF COMMON NECLARATIONS * 
30 Cc RRRREKCKKKCKRKEKERESCKCRKKRKERKCKRRKKCKK KKK RAKCERKKCKEKCRKKEKKEKRKRRKEKREKRRK EKA RM ERE 
ol C 
3¢é C THIS ROUTINE IS CALLED EY PARSE WHENEVER A SYNTAX ERRGR 
33 C IS SUSPECTED IN THE INPUT STREAM 
a4 C 
35 IF CITEST) S500, 1005 500 
36 C 
37 Cre-----FIRST SHEINK UF THE IHFUT BUFFER FOR THE MESSAGE 
35 iovg CALL SHRINK 
39 C 
4) C------THEN PREPARE AND OUTPUT THE MESSAGE 
4 1 CALL HEATERS 33> 
42 C 
43 C------SHIFT CHARACTERS LEFT 
44 Do 10 1:2: Is 8 
45 LINECI> = 9 
46 190 CALL BITSET CLINECI>» 13s O88, BUFCI 3) 
47 WRITE cOuUTs 99) LINE 
43 IF CIOCHKCI3) S20,» S005 Sea 
ut - FORMAT CiHOs 14H®*SYNTAX ERRORs sa 1s 80 A 1d 
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E-YTAM NDM PROGRAM PAGE if 
17 C BECKS AAS AAAS 
is Cc # DECLARE COMMON CELLS Ea 
19 C BMRRAMAKKAEAEREARRSOR KARE ee 
20 COMMON ITEST » Pil F2 s BUF » INCHAR, SECTOR: IN 
cl COMMON OV » VTSDFLs VTSDFTs BLANK » LSDN » LSD » TUIDN 
ce COMMON . TIB » TCD » LIWE » LANCNT » LANMAX » PGCNT 
23 COMMON DFLFCE,» eee IVALUEs LFILE s N#¥TSCTs IDYSCTs IDTDSP 
ec 4 INTEGER Pi » Pe OuT » ¥TSDFLs VTSDFTs BLANK s PGCNT 
ew INTEGER BUF €160)>5 SECTORC120>+ L3opD 4 33s TUIDN ¢ oe 
ce 6 INTEGER TIB ¢ 44>, TCD ¢ Js BFLFCBC 133s DFTFCBC 13) 
er INTEGER LINE € 80) 
ces Cc BRERA RHR CEKRECREKCEMRERKEKRERSE SCREENER Ee 
co Cc * END OF COMMON. DECLARATION ro 
39 ‘ME LES ee ee Se eS eee ee Tee See eee ee Pee PCE CSET PPP PSEC CE LCoOSOCLSOCOCeCoCCOe LS TS SE 
a1 Cc 
3e 6«C SUBROUTINE GETCHR FINDS THE NEXT NON-BLANK INFUT CHARACTER 
33 C 
34 Me Cece PES ESE ECE SSCL OLE SECS ORE EOC EC COU CS OOSOSCOCOC CESSES CLCLLCCLC. CTC. 
35 060=CoE 
a6 Ce ee ee FIRST ATTEMPT TO SATISFY THE REQUEST FROM THE CURRENT CARD 
oy | IF ¢€BUFCP1> - BLANK? 10s 1005 10 
36 C 
39 C------ REQUEST CAN BE SATISFIED 
40 1 INCHAR = BUFCPI)D 
41 P1 = Fi + I 
42 RETURN 
43 Cc 
44 C------NEW CARD MUST BE READs FIRST COMPRESS THE CURRENT CARD 
45 100 CONTINUE 
46 CALL SHRINK 
47? C 
43 C-<-<<--= THEN READ AND LIST THE NEXT CARD FROA PI 
49 READ CINs 39) CBUFCIDs — = Sls 1603 
50 99 FORMAT ¢ 80 A 1D 
31 a IF CIOQOCHKCI}3>) 2105 110s 2190 
ba ad 
ce Cee----NOW LIST OUT CARD IMAGE 
3 4 110 CALL HEADERCI)D 
of WRITE cOuUT,s 9A> CBUFCET)s FT @= 81s 160) 
36 97 FORMAT ¢iks 80 A 13 
5? IF C€IQCHK¢I1D) 2205s 112s 220 
23 C 
593 C------ SHIFT DATA RIGHT IN EACH WORD 
60 ite DO i120 I = Sis 160 
et Lee CALL BITGET ¢CBUFCI)s 1iSs O8s BUFC EDD 
6 
63 C= IF A SLASH CARD {8 READs TREAT AS AN I170 ERROR 
64 ‘ IF CBUFCS1)9 - 125) 12@2@s 2105 lee 
65 
66 Cerre++- BLANK SEQUENCE NUMBER PORTIQN OF THE NEW CARD 
677 lee DO 130 I = 133:,5 1690 
63 0 BUF CI> = BLANK 
&9 
70 C------ THEH COMPRESS THE NEW CARD IMAGE INTO THE OLD STRING 
. 2 CALL SHRINK 
re C 
fs C---—<— AND ATTEMPT TO SATISFY THE REQUEST AGAIN 
4 G0 TO i ; 
en) C 
76 C------ BELOW ARE THE I/70 ERROR STOFS 
oe £10 STOP 100 
Po e20 » TOP 200 
Fe | END 
ENTRY /CONMBN BLOCK NAMES 
o0u0n0e v6 FR GETCHR 
o006¢d6 C CONNON 
EMTERNAL NAMES 
COo0e5Q E SHRINK 
QoO00g381 E RD 
ooVvo00 E V¥SRERR 
Oo0000 E ¥YSRERI1 
boO013S4 E $11 
Ooo0e¢2 E Sho 
no014¢6 E S$Nn0 
OO01%?7 E IOtmHK 
Oooo0114 E HEADER 
O0O0117 E SWR 
00017353 E BITGET 
Q00e60 E $3T 
SYMBOL TABLE 
000265 R 000001 
oo00n01 C F 1 
ooond0e Cc Pe 
o00435 C Our 
000436 C ¥TSDFL 
000437 C VTSDFT 
000440 C BLANK 
000606 C PGCNT 
000003 C “BUF 
qo02f760 R O0D240 
000244 C SECTOR 
000dde2 C LSB 
o00447 C TUIDN 
000453 ¢ TIB 
oo0457 C TCD 
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E-VTAM NDM PROGRAM PAGE ie 
000607 C DFLFCB 
oog6e4d C DFTFCB 
000464 C LINE 
O00003 FR 1 
Ooo0o00 C TTEST 
pqa0243 C INCHAR 
000434 C IN 
o004¢41 C LSDN 
00060¢ C LNCNT 
000608 C LNMAA 
9000641 C IVWVALUE 
go0dede C LFILE 
000643 C NXTSCT 
oHoo6eded C IDTSCT 
ogog0e45 C IDTDSP 
QO002f63 RFR ODOO00e 
gago02e36 R 3 
oonead R $1 
qo0ne1 FR 10 = 
cogn04¢6 R 100 
ono02e50 E SHRINK 
o000S51 E SRD 
o00000 E VSRERR 
oog0n00 E VERERI 
o0q103 R $9 
Hone&8s? R I 
geoo0e6e6 R 000121 
O00134 E $11 
Qogoge4e E $DoO 
OO014¢6 E Snip 
og0157 E ITOCHK 
QO002€53 R 21g 
po00113 R 110 
000114 E HEADER 
GO0L1liI*S E SWR 
NHONOLIS1 RF ra 
HoOneSS PR ecd 
O00163 R Lie 
Qonie? R 120 
o00175 E BITGET 
goodge7vi FR OOO017 
oo00e7e R OOOD1IO 
qoaqne7v4¢ RFR 000257 
C00e?s R YOGD1Ee3 
voOneEeL R 1é2 
none@eS F 139 
O002775 R O00231 
O00eb0 E ssT 
0 ERRORS COMPILATION COMPLETE 
i Cc THIS IS AR COPYRIGHTED PROGRAMs COPYRIGHT 1973 BY VARIAN DATA MACHINES! 
e C 
3 ec Vie Das Me FART NO. 92@L.11035-0278 
4 ¢ 
5 E RELEASED 3-1-74 
6 Cc 
7 C | 
3 Cc GETLSD 
9 G 
10 C 
1 i TITLE GETLSD 
le SUBROUTINE GETLSD 
13 Cc 
i4 E COMMON 
135 : 
6 
2 e EEK EEE RRC REFER TREES KREKREKRERKEARTAHK KERR RECKRRRRSEMR ERATE 
is Cc * DECLARE COMMON CELLS | | 
13 MCR CSESESOCCSOSS CSC Cee eee eee eee eee eee eee EER SE eS Se 
oat COMMON ITEST » Pi » Fe » BUF » INCHARs SECTORs IN 
cl CONMON OUT » VWVTSDFL»s YVTSDFTs BLANK » LSDN » LSD > TUIDN 
ee COMMON TIB » TCD »s LINE » LNCNT » LNMAX PGENT 
23 COMMON DFLFCBs DFTFCB» VALUE» LFELE » NKTECTs IDTSCTs IDTDSP 
o4 INTEGER Fl » Pe » OUT » V¥TEDFLs VTSDFTs BLANK ss FGCHT 
ef INTEGER BUF C160), SECTOR¢CLeO>s LSD ( 5>, TUIDN ¢ 4) 
ce INTEGER TIE ¢ 4)ys5 TeD 4 S>; DFLFCB* is>,s DFTFCE* co. 
e? INTEGER LINE « $0) 
29 OME CECE RCE S TORO TSS CEC ee ee eee eee eee eee eT Tee ee Tee ee eee ET AEE ES SS: 
e9 Cc END OF COMMON DECLARATIONS 
1 MERLE RUEOSOCCOCO TOC CLOCCCCOOCCOS CS CSS CS Cee eee ee Pee eee Ee eee ERP Eee Se EES EE 
| c 
3c C THIS ROUTINE IS CALLED WHENEVER AN LSD IS NEEDED. 
33 C FIRST THE SECTOR AND DISFPLACENENT OF THE LSB IS CONFUTED 
a4 C THEN A CHECK I8$ PERFORMED TO SEE IF THIS SECTOR IE ALREADY 
35 : IN THE cCOMMON BUFFER. IF IT I8 NOTs THEN IT I3 READ 
36 E FROM THE FILEs YWTSDFL. FINALLY THE LSD I8 MOVED TG THE COMMON 
3a C VEC TORs “LSB AND A NORMAL RETURN IS MADE TO THE CALLER. 
38 & 
39 C MEME ECE EERE EEE EEE ee ee ee 
40 E 
41 C--+-<=<=+ €e€EROD OUT LED IN COMMON 
42 no 10g 1] = 1s 
43 i100 LSBET) = 2 
4 ‘is 
45 C-—-<-= IF FILE It CLOSEDs MERELY RETURN 
46 IF cDFLFEB¢C5>> SOO0Os 5005 119 
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IVE THE LSD TO THE COMMON VECTOR LSD 


A READ IS REQUIRED 


is 5 
I 
SECTOR JD 


STOP 300 


LFILE 
C------THEN MAKE A NORMAL RETURN TO THE CALLER 


C-=s—=<-STOP Of FILLE ERROR 
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Cc 
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E-VTAM NDM PROGRAM PAGE 14 LISTING 
000150 R 140 
O00151 E SST 
Qo002e01 F e210 
O00f22e4 F me 
oggeesS F&F O00243 
C00ecE R $1 0 
0 ERRORS COMPILATION COMPLETE 
i : THIS IS A COPYRIGHTED PROGRAM: COPYRIGHT 1973 BY VWARIAN DATA MACHINES 
¢ 
a 6 :¢ V.D.M, PART NO. 92L1105-0298 
4 C 
Ss RELEASED 3-1-74 
6 C 
ra C 
& C HEADER 
3 C 
10 Cc 
Aik TITLE HEADER 
iz SUBROUTINE HEADERCN)D 
13 C 
14 C COMMON 
LS : 
16 C 
1? C MECN RAKES ERE 
is Cc ™ DECLARE COMMON CELLS ” 
19 MER ESE RSS SESS SCS Ee ee ETT eee eee eee eee eee Eee ee se 
en COMMON ITEST 3 Pi s FS. » BUF »s INCHAR,s SECTOR: IN 
el COMMON OUT » VTSDFL»s VTISDFTs BLANK » LSDN » LSD s TUIDN 
ec COMMON TIB. »s TCD » LINE » LNCNT » LNMAXK » PGCNT 
eo COMMON DFLFCBs DFTFCBs IVYVALUEs LFILE » NRXTSCTs IDTSCTs IDBTDSP 
c4 INTEGER Fil » Pe » OUT » VTSDFL»s VTSDFTs BLANK s PGCNT 
ea INTEGER BUF €160), SECTORCL20>s LSD 4 5)» TUIDN ¢ 4) 
co INTEGER TIB ¢ 4), TCD C 5>,> DFLFCBC 13), DFTFCBC 13) 
ce INTEGER LINE « 80%) 
os C CESK 
ie Cc * END OF COMMON DECLARATIONS a 
“0 (7 SRE SE eRe eee Dee ea eee Dee 
31 C 
sc C THIS RFOUTINE IS CALLED "eames A NEW HEADING IS NEEDED 
So L ON THE LISTING DEVICECLO)D 
24 C 
aS C 
36 INTEGER NMNAMDTECS)s DATEC4)s» NAMEC 4) 
37 EQUIVALENCE CNAMBTEC1>s BDATECLTIIs CNAMDTECS9s NAMECI >) 
a8 C 
19 C---s——= INCREMENT LINE COUNTER BY USER AMOUNT 
40 LNCNT = LNCNT + WN 
41 IF CLNENT - LNMAX) S005 3005s 100 
42 C 
43 C------ NEW PAGE IS NEEDEDs PREPARE TOP LINE 
14 100 PGOCNT = POCNT + ft 
45 LNCNT = & 
+6. CALL Tame C Je I3 
iP I = J # 60 
do J =f J - [ * 60 
9 I = I ®* 100 + J 
rl CALL SYSGET CNAMDTE SD 
cL WRITE cOUTs 9339 PGCNTs DATEs NAMEs I 
ic 393 FORMAT cCSHIPAGE»s ISs Oks 4Res Ks 4A@s CAs 
3 t @B6HYVORTEM:s 8@Rs SGH¥ TAMs ERs SHNDLs Lt4A,» [45 BH HOURS: 3) 
5 4 IF CIOCHKE€IDS 2e2@00s 8500s e200 
be ioe C 
i C------<STOP ON FRINTEF ERROR 
aur eod STOP 200 
bain e 
a9 C------ RETURN 310 THE CALLER 
60 540 FETURN 
m1 END 
ENTE Y/“COMMON BLOCK NAMES 
Gonu2R21 F&F HERDER 
cooedéde C COMMON 
EXTEFNAL HANES 
o00n0e E SSE 
oogoS 7 E TIME 
N00110 E SY2EGET 
oon11 E SWR 
nnoond E. SFERR 
onuono E ¥YSRERI 
ondp~sa CE =71 
OAHLS? E SND 
oonrP LL € TOGCHE 
OnN P16 E SST 
SYMBOL TABLE 
ObO2eS FF HOQQYI 
100004 FR ‘e 
Quong0e E $Seb 
noovaLT FC Fil 
oudndOoOdF C Pe 
OO04S5 CF OT 
e004 Cc YTSHee 
non4s Cc YVPTSuFT 
Podd4o 3 RLANE 
vuoeBdOe CF POLAT 
vpoon0s Cc BUF 
nooued¢4 C SECTOR 
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oOo wm ww = zx RFR CFE LJ x 
oOo oo x ¥ awit vy #& x = - hal 
= 2 x a Veeco ¥ x on a fA Ue 
=~ ws kd a x Wee > DO ZOCOR co oF co 
: a | x» FF O> J+OF- “ce a uw Wf oO 
cr dad zx * Or *oOFf arc fF ti o > 
Yr oO =m @ ee ee elt Oo # = HB Zw De Jf 
“ x a —/ Fi x; I —! ao Iw 
cj ” = ik QO y IK | zo -—_o - 
i x OOe eS wt ans €£2¥ OD SBT HST. 
oa. ma J HAe- AO TH La! a Oo wie od 
ZIM FOL MOTOoOK UR LU i | 
lal Ea . MWR OSPR OOO Oe OM a nw = wm ie eo 
— lil | | mee - * i! © Fe a YS oOo a 
We = x ee me we owe eS Cy at Lil rae 
wa = ce ia) x» FF Ae Me Fs FF 
ow Cc x¥Oe OO Z=KR EO DO eo WY 
=e 6 = FER HY) Le WwkOoOe Ow vw Cw 
4 Oc «ax wll = # Ee We UJ Limite EF # uJ mh _ 
o> ao. i=) | a | ee ee ee ee Ww~- => Lia cc i) 
a =—_ = | 5) BRUSH OF AOC wee Je Oe circ <r ec Oe LW 
20 A x * es J — —a es ££ 
oOo = Ku corccs EF 24> WS W> WX 
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R ro ATION COMPLETE | 
Tl A COFYRIGHTED PROGRAMs COPYRIGHT 1973 BY YARIAN DATA MACHINESOS O0001 
05 00002 
We dteths PART NO, 92@LLIOS-OSOB G5 og0n03 
a5 ooon4 
RELEASED 3-11-74 05 oogu0s 
nS aoo0ns 
oS gooaF7 
SEMEER 05 o0008 
9 o5 oooos 
14 65 Gonv10 
11 TITLE NUMBER 05 G0011 
iz SUBROUTINE NUMBERCIRAD)D GS G60i1e2 
13 7 RONRECHR ERS 
14 cw COMMON “exe 0% @% 
15 e s+ eee eee 
16 ie e+e GG ERE 
‘Bey [ SRC EMOTES REA SESRSSEK RRR MKE CCK SAAKAK KCK AKRSK A AK KACEK Cee ee ee 
14  * HQECLARE COMMON CELLS x MEER © 
13 C EC OEE ASE ee ee 
cQ COMMON ITEZST 3s PI » Fe 9 BUF s INCHARs TECTOR:s IN eH EDD 
ct COMMON OUT s VYTEDFLs VTISDFTs BLANK + LSDN » LSD » TUIDN ROCCE OES 
ec COMMON TIE » TCEH » LINE » LNCNT » LtLNMAX +» PGCNT ETRE RE 
23 COMMON DFLFCBs DFTFCBs IVALUEs LFILE s NRTSCTs I[DTSCTs IDTIDSP eee eee * 
e 4 INTEGER Fi »s Pe » OUT » VYVTSOFL VTESOUFT»s ELANK +s PGCHT SLKRERRSS 
en INTEGER BUF €160),5 SECTOR¢CIz209,5 LSD « Sd,» THIDN ¢ 4) CREME Ke 
26. INTEGER TIE C 49s TCD ¢ Sd; DFLFEBC 1393 DFTFCBc 133 KEES e SS 
oe INTEGER LINE « 80) a 
cr (: ee Ee eS Se eee ee eee TT ee TT TT TT TT TTT eT TT TTT Te eT e+e eee & ee 
co i # ENT OF COMMON DECLARATIONS e SERRE RS 
car ( FY See ee ONE EE eee EE EEE Ee Oe 
a4 if GS AGOULS 
ee C SUBROUTINE AUTPER CONVERTS A NUMERIC CHARACTER fETRFING IN THE nS agoonisd 
oS (_. INPUT BUFFER +0 A BINARY VALUE. PARAMNETER YTESAD GS OGG13 
a4 C QETERMNI NES THE DESIRED FADIAs FROM 1 TC 19. MNUMEER IS ALWAY = na g9016 
25 C TRUE Al's RETUTNHS THE BINARY VALUE IN CL-INDN CELL IVALUE 0S ono17 
26 Cc aS G9G18 
oF i—--- ---2ET TEST FLAG TRUE, ZERO RESULT AND BACKUP INFUT FPOINTERS oS Oats 
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C io 00013 
C: THIS ROUTINE WRIFES A FINAL REPORT OF THE CONTENTS OF THE id oonid 
E FILE ¥TSDFL AND VTSDFRT. if d0015 
Cc 10 Goo016 
C----- -SKIP LSD REPORT IF FILE IS CLOSED 10 a0o17 
IF CBFLFCB¢CS>> e005, 2005 190 in ooO018 
C if” og0g19 
Cae eee PRODUCE A BINARY REPORT FOR EACH LSD 10 000eb 
10 LNCNT = LANA 10 60081 
DO 100 LSDN = Os 255 in OoOo00ee 
CALL GETLSD 10 og0023 
C | id O00e4 
Cae eee SKIP REPORT IF LSD IS NOT DEFINED in goneSs 
CALL BITGET ¢I» 8s 8s LSDCSBI)D 10 OG0e¢6 
IF ¢€I> 100: 1005 en i0 OnodeF 
C iff O002S8 
bw DUMP OUT THIS BEFINED LSB id OGb0e93 
ro CALL HEADER* 2) 16 00036 
WRITE cOUTs t199%° LSON 10 UuAagSsi 
13993 FORMAT c1iHO;s 3HLSD- 14°73 io 6NooOse 
IF CIOGHKCIIND 6BEOs 3O» G6BeED 10 ngaq3s 
C | 16 nogoosd 
C------ DECOMPOSE EACH WORD AND EIT ig no0ss 
30 DO 30 I] = is § 10 GoOnRBSE 
DO 80 J = ils i16 id O0NS? 
K = i6- J 1 on0 S38 
CALL EBLIGET CRUF'CI9. Ks ‘Ka tS BCE? 9 ii ooOa39 
Sf CONTINUE ifn Coo4oh 
WRITE «OuUTs %Lord e€ BUR CI. J = fs 143 10 bogodt 
137 FORMAT tdea [6 1] @2 in bunds 
IF CIOCHKCJ)> 620s 9390;s 628 it ongas 
on CONTINUE iad gbn44 
100 CONTINUE lu Annoes 
C ifm oOohag 
Reeer=—---NHOW PRODUCE REPORPT FOR FILE VTSDFTs FIRST INSURE FILE IS OPEN itd uone-? 
eo IF CDFTFEBCS 2? S00; S005 294 ig uonss 
2a4 LANCHT = LNMAX 17 ogogas’ 
C iv OO850 
C------[NITIALIZE INBEX SECTOR FOINTER 16 AGOoSi 
INDEX = 1! 16 OnOoOSe 
C if #oaAS 
C------ RPEAD NEW INDEX SECTOR INTO CAFD BUFFER if cGdaas4 
ein DFTFCEC4) = INDEX if) «00055 
LFILE = Q itt UOGSe 
READ «<VTSDFT) cCBWUPF CIs TI = Ls Led iG AGuS-e 
IF CIOCHKCI7> 6405 2l1es 640 im oooss 
C if angoss 
C------ GET NUMBER OF CURRENT ENTRIES AND MAKE CERTAIN THERE ARE SOME if G0060 
ele Pe = BUFC1) iv Quoel 
IF CFE? 260: 260% 214 in gnn6e 
cl4 Pe = Fe ® 4 10 Q0nes 
C i” onosa 
C---+--- NOW HANDLE EACH ENTRY IN THIS SEETOR ig oO0BS 
DO e€@S30 Fl = 4+: Pes 4 ig 90066 
C io Hoge? 
Ci ot em MOVE TO TIB VECTOR FOR EASY FEFERENCE ig ugnes 
TO 2#@eG I = Is 4 104 udttes 
J = FP] + | 16 30070 
occu TYTReT* = RUF: iv ugg? il 
C im nAukvre 
C+-—+—==—-— HOW BE TRART HibRE SS OF TATA AFRFH in wus 3s 
CALL BIVTGET tIsecys 1445 rs RUPP OCPL+3 a> it ooaea 
CALL BITGET <clboliFs f, if Bure PiT ess 3 id DOGS 
Cc 10 udo?ses 
(--<=<+-- SKIP FEAT IF SELECTOR IT IN CAythan Lad non??? 
IF cCecLFILE .E@ >? «AMR. ODP TEESE AD . LS; SECT?Y3 GO TO eee 140 OOO ss 
tc im agg?s 
Cekee=—-=+=-KKECTOR I3 ROT IN Canmnits FERN f= FEGUIXEDS io ote 
LFILE = 2 if gga 
DFTFCBC¢4) = FTZEECT it tfuonse 
READ c¥TEDFT® SECTOR i? O&osgn 
DFTFCBC4) = YTSECT th OnMaSs 
LF C€TOCRKE¢ 13a> o40s Fees 646 i” GOhneSS 
if i tunes 
C------ NOW THAT TaRTA SECTOR J2 IN CORE- SOFPY TO VECTOR TeEn lg Ofna? 
c22 BD 220 | = ta 8 ig Cubee 
Jo = JIDRDISPF + | id fons 
230 TEDBCITS «= ECTOR¢ 3) ifn gungg 
c it oongnai 
C---+--- NOW DUMP : UT THE TIE ty 0A g Se 
LALL HEAT keoo ig, gon09s3 
WRITE ¢«Oull!ls @995 TIBCide TIE? if oonad 
ce 3? FORMAT ¢4'O0TIBs hs 2& A Bs im oonss 
If CPOCHF: laa 6205 f3e. £6270 19 gonaeé 
C if goose? 
C---~=--fZECOMFOLTE TIB.s NORD 3 if nons3se 
csc i = 3 io nenoss 
HO 246: wt * fe [86 10 oOo0100 
x = she = * it ofiod 
P40 GALL Bi) | Lunes Ks Se TIRE 39 if? o00102 
WRITE ¢OWU's 197) cLINE’ Joe JF = ts 186) ig agjinas 
IF CIOCHR J353 6205 234. #620 itt GoO10¢4 
C 10 WoLtas 
a ei ee “DUMP CUT THE TCD ig ogaing 
P34 CONTINUE if O&407 
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E VSRERI 
R i393 
E S1il 
E SnD 
E IOCHK 
R Heo 
R 30 
Re 90 
Re 60 
Re J 
RF NOO0O0en 
id K 
FF onodoge 
F ¢ j 
er OOO+41 
Fe $1 6 
E. £00 
FA 19; 
hf Owoe Su 
f SO 0 
i cu 4 
fr INHE® 
F eid 
RE O00be? 
FE: skp 
Fe Bd 
F cle 
F gonuas 
Fe c60 
Fe ci1l4 
fe eS 0 
Fe coo 
RF O004S5e 
R ISECT 
RP AOO016 
RF OooOooSs 
F IDISP 
FP Oonanie 
F cece 
fe eon 
EF ONO 456 
rR oone43 
FPF anNog?! 
Fe 233 
Re Aogd Ses 
ae 
Ir ese 
[x eon 
PF HOA 
fe cad 
ie eos 
Fe 36 
FR: 244 
f ai 
E +5 F 
R= COMFILATION COMPLETE 
ThIst IT2 A COPYRIGHTED PROGRAM: COPYRIGHT 19373 BY YORIAQN DATA MACHINESSCS O0001 
o4 0000e 
Ma Ms PART? "Hl. SEL. L1L0S5-OS.58 ad 80003 
$4 890904 
FE!LEATET 3-1-74 n4 00005 
o¢@ Geges 
SAR LAK 694 0008? 
o4 o00nge 
C4 GOc05 
TITLE SHEIK 4 80018 
WBROUTINE SHRINK id Geo 41 
ud GoAte 
Kee se 
COMMON OE ee 
soe SW eT 
ene es ew EF FS 
TrTTrTrr CrrecrrCerrccrereererreLePree ee ASRS RSEE RE LS S2 2 £25 S652 8 oS ee lll eet tte # 
* DECLARE CRMHON BELLS e ERS EME 
ee See ee ee vere ee eee eee Tee CCPC eee Sec ee CRESS AS PS PSR ov Se ee + 
COMMON ITESE & Pa » Fe © BUF » INCHAFR: SECTOPs IN RRR COR 
COMMON Cit . WVTSDFL»s VIED Ts BLANK » LYON »s Lb » TUIDN reo ee ee 
COMMON Tk » TEND » KLINE «© EMUNT « LHMRS + POONT eR ERK EH 
COMMON DELECR: PETFCR: VALUE. LFILE »s NETSETs IBIstTs IDTNSP SERRE SS 
INTEGEF F1 » Fe » Lili « VTEDEL:s VTSDETs RLANK s PGCHT es 2 2 
THTEGER BUF C$HO0 %, SECTORC LEO. £20 f ss THIDN § > coe ee ® 
INTEGER TIB k as Co . DELFCBe 235s DETFEBY 143 +E OR 
INTEGER i THE © ny eee ee KE * 
OMT EME EROS OE OREM ELE SERS THRE HO EOE EEHEM EKER HATE ESE CEENRETER ER ENS [eee 2 2 ee 
* END OF Ci akrOn RECLARATINNS * #8 RES SS 
2. 2 2 ee ee ee oe EFCC EERE HR EERE EE REE REE REN He EEE EH ee #4 + 6 + 
THIS ROU INE I< MALLED 'OQ ELEFT- JUSTIFY ALL HAH-RPRLANK 04 aANnn1S 
CHARACTE:*. IN THE (INPUT SUFFEF i¢ OoO014 
id oogis 
w2ew-- -SET DESTPHATION FOINTEFR 14 oonte 
= @ a4 ooc17 
Ho4 gudis 
ae eae, sie SCAN UH: ~ BUFFER, MOVING HON- BLANKS TO NESTIHRATION ADDRESS od gonia 
na 300 1! : Ls ie 04 GO0eN 
{FF «BUF: ' R!pbAe ) BOs Lobes -Bt id ante 
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E-YTAR NDM PROGRAM PAGE 38 
3c G THIS FOUTINE ATTEMPTS TO FIND A FOUR-CHARACTERP TUID IN THE 
oe C INPUT STREAM. 

24 C 
35 INTEGEF CA » ihe »s CO « CS 
36 é DATE CH/1ISS¢ s eve2@lSes CO¢1F64/s C9I41B854 
we 
23 C— ~e  e FIRST CLEAR OUT THE TUIBN YECTOR IN COMMON 
oo NO 10 I = 1s 4 
40 10 TUITHe I> = BLANK 
4 | C 
te Cae NOW BACKUP POINTERS AND ZET TEST FLAG FALSE 
Se CALL BHUKUP 
44 ITEST = QO 
45 C 
Cs a Coes SPEECH FIRST CHARACTER OF TUR AB INSIST THAT IT'S ALPHA 
4° CALL GE TICHR 
42 IF cCINCHAR - CA e055 aU, ro 
44 20 iF CIACHAR =—- C23 305 202s eE€8D 
0 C: 
a C--=-=- FIRST CHAR IS ALPHABETIC: SOD SET FLAG TRUE AND *TORE CHAR 
ad 30 LALL ADVAAEC 
a! IThRST = f 
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